home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tpsbk100.zip / SBCMFDEM.PAS < prev    next >
Pascal/Delphi Source File  |  1991-06-30  |  595b  |  25 lines
  1. Program SBCMFDEM;
  2. Uses SBCMF;
  3. Const ErrList : Array [0..8] Of String[23] = (
  4.   'Music finished.',
  5.   'FM Driver Not Installed.',
  6.   'Error Opening File.',
  7.   'Error Allocating Memory.',
  8.   'Error Resetting Driver.',
  9.   'Error Reading File.',
  10.   'Error Playing Music.',
  11.   'Error Stopping Music.',
  12.   'Error Closing File.');
  13. Begin
  14.   Write('TPSBK Creative Music File Player v1.0 - ');
  15.   WriteLn('Copyright(c) 1991 Trevor Robinson');
  16.   If ParamCount <> 1 Then Begin
  17.     WriteLn(' Syntax:  SBCMFDEM  filename');
  18.     Halt;
  19.   End;
  20.   WriteLn(ErrList[PlayCMFFile(ParamStr(1))]);
  21. End.
  22.  
  23.  
  24.  
  25.